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1.  Introduction 


The  U.S.  Army  Research  Laboratory  (ARL)  Battlespace  Decision  Support  Team  (BDST)  uses 
combat  simulations  for  its  Battlespace  Terrain  Ownership  (BTO)  (!)  and  data  mining  projects 
(2).  It  is  critical  that  accurate  and  timely  data  is  obtained  from  simulations  to  support  these 
efforts.  We  are  currently  using  One  Semi-Automated  Force  (OneSAF)  Testbed  Baseline  (OTB)* 
version  2.0.  The  simulation  was  originally  developed  by  the  U.S.  Army  to  support  training. 

Over  the  years  the  simulation  has  expanded  to  support  all  domains. 

BDST  completed  work  in  2001  that  provided  a  new  capability  to  OneSAF.  This  capability  was 
entitled  the  Killer/Victim  Scoreboard  (KVS).  The  work  was  originally  developed  for  OTB 
version  1.0.  When  the  Program  Executive  Office  for  Simulation,  Training,  and  Instrumentation 
(PEO-STRI)  placed  a  call  for  OTB  v2.0  enhancements,  the  KVS  code  was  submitted.  The  KVS 
is  now  inherent  in  OTB  v2.0  and  can  be  invoked  with  a  configuration  flag.  However,  KVS  only 
tracked  direct-fire  results  and  needed  to  be  expanded.  In  addition,  the  collection  of  information 
on  battlespace  entities  required  user  intervention.  New  code  has  now  been  developed  and  tested 
that  tracks  indirect-fire  events  and  allows  for  automatic  data  collection.  This  new  capability 
furthers  our  efforts  to  obtain  reliable  and  complete  data  from  simulations  to  feed  current  projects. 


2.  Background 


The  traditional  method  for  evaluating  battle  outcome  is  to  determine  if  objectives  were  met  and 
to  examine  force  attrition.  Part  of  BDST’s  objective  was  to  come  up  with  novel  measures  of 
effectiveness.  To  evaluate  courses  of  actions,  we  wanted  more  detail  from  the  battlespace.  KVS 
gave  us  that  level  of  detail.  Implementing  KVS  was  a  two-fold  process.  The  first  step  was  to 
modify  OneSAF  to  provide  a  listing  of  all  entities  in  the  battlespace  and  associated 
characteristics  (3).  This  data  collection  capability  originally  occurred  whenever  the  OneSAF 
code  entered  a  certain  software  routine,  and  required  user  intervention  to  enable  this 
functionality.  Now,  we  have  modified  OneSAF  again  to  collect  this  data  without  user 
intervention.  The  software  collects  data  every  60  s  by  default,  or  a  user  can  modify  a  file  to 
collect  data  at  any  time  period. 

Figure  1  provides  a  sample  of  the  information  that  is  collected  for  each  entity  in  the  battlespace 
at  either  the  default  or  user-specified  time.  Information  is  provided  for  each  individual  entity  and 
their  aggregation.  If  a  company  of  main  battle  tanks  is  in  the  battlespace,  information  will  be 


*OneSAF  software  is  sponsored  by  Program  Executive  Office  for  Simulation,  Training,  and  Instrumentation  (PEO-STRI). 
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Current  Count  1  at  Time:  1122577472 


MARKING:  100A62 
VEHICLE:  vehicle_USSR_T80 
VTAB:  1037 

X=  10005.50  Y  =  36515.00  Z  =  938.1 1  CELL  =  0 

Vehicle  Authorized/Undamaged/Catastrophic/Firepower/Mobility 

Damage  Damage  Damage 

T-80  11  000 


Equip/Supplies:  Current  Lvl 

Resupply  Lvl 

Avg  Per  Veh 

Fuel  (Fuel)  (gallons) 

499.39 

499.95 

499.39 

125HEAT  (125HEAT) 

28.00 

28.00 

28.00 

125SABOT  (125SABOT) 

12.00 

12.00 

12.00 

D  (D) 

2000.00 

2000.00 

2000.00 

Songster  (Songster) 

4.00 

4.00 

4.00 

Not  aware  of  any  vehicles. 


Figure  1.  Information  for  one  entity  from  the  data  collection  file. 

provided  for  the  company,  the  platoons  in  the  company,  and  each  vehicle.  This  example 
provides  the  time  at  which  the  data  were  collected,  the  entity  type,  the  call  sign,  a  unique 
identifier  (vehicle  table,  or  VTAB,  entry),  entity  location,  entity  status,  the  current  logistic  levels 
(fuel  and  ammunition),  and  if  the  vehicle  has  spotted  any  other  entities.  The  data  are  placed  in  a 
file  created  for  each  simulation  run.  The  file  is  named  with  a  unique  timestamp,  identified,  and 
the  suffix  of  dc  for  data  collection.  The  unique  timestamp  is  provided  through  a  system  call  in 
the  C  language  to  the  time  function.  This  timestamp  is  used  for  all  files  created  during  the 
simulation  execution.  This  allows  all  files  relating  to  one  simulation  execution  to  be  identified 
and  correlated. 

The  next  phase  in  the  KVS  process  was  to  create  two  additional  files.  These  files  provide  a  short 
listing  of  every  entity  in  the  battlespace  and  direct- fire  occurrence  ( 4 ).  The  first  file  is  the 
vehicle  table  file  that  lists  all  entities.  The  data  include  the  unique  identifier  (VTAB  four  digit 
number),  the  call  sign,  and  the  vehicle  type.  This  format  provides  a  quick  lookup  to  correlate  all 
entity  infonnation.  The  vehicle  table  does  not  provide  a  listing  of  aggregated  units,  only 
individual  entities  (see  figure  2). 

The  second  file  is  the  direct-fire  file.  Information  includes  the  time  of  the  hit,  the  firer,  the 
target,  the  location  of  the  firer  and  target,  the  ammunition  used,  the  range,  and  the  outcome.  The 
information  is  provided  for  every  direct-fire  occurrence.  In  the  example  shown  in  figure  3,  an 
entity  (VTAB  identifier  or  VTAB  ID  of  1001)  is  hit  with  a  U.  S.  M392A2  (a  1 05 -mm 
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VTAB 

ID 

1013 

PO_ 

VEHICLE 

100B51 

VEHICLE 

TYPE 

vehicle 

_USSR_ 

BMP2 

VTAB 

ID 

1006 

PO 

vehicle 

100B52 

VEHICLE 

TYPE 

vehicle 

USSR 

BMP2 

VTAB 

ID 

1014 

PO 

vehicle 

100B22 

VEHICLE 

TYPE 

vehicle 

USSR 

T72M 

VTAB 

"id 

1015 

PO 

vehicle 

100B21 

VEHICLE 

TYPE 

vehicle 

USSR 

T72M 

VTAB 

"id 

1018 

PO 

vehicle 

100A82 

VEHICLE 

TYPE 

vehicle 

USSR 

T72M 

VTAB 

"id 

1037 

po) 

vehicle 

100A62 

VEHICLE 

TYPE 

vehicle 

_USSR_ 

T80 

VTAB 

ID 

1002 

PO 

vehicle 

100A51 

VEHICLE 

TYPE 

vehicle 

USSR 

T80 

VTAB 

"id 

1001 

PO 

vehicle 

100A52 

VEHICLE 

TYPE 

vehicle 

_USSR_ 

T80 

VTAB 

"id 

1003 

PO 

vehicle 

100A21 

VEHICLE 

TYPE 

vehicle 

US  Ml 

VTAB 

"id 

1012 

PO 

vehicle 

100A14 

VEHICLE 

TYPE 

vehicle 

US  Ml 

Figure  2.  Vehicle  table  sample. 


Time  Stamp  1122577497 
Firer  ID  1012 
Target  ID  1001 

Firer  Position:  X  =  3689.51  Y  =  45022.77  Z  =  1116.82 
Target  Position:  X  =  3966.29  Y  =  42459.20  Z  =  1149.10 
Vehicle  1001:  Hit  with  1  "munition  US  M392A2"  (0x48b80421) 

Comp  DFDAM_EXPOSURE_TURRET,  angle  41.01  deg  Disp  4.085521  ft 
Kill  Thermometer  is:  Pk:  1.00,  Pmf :  0.60,  Pf :  0.40,  Pm:  0.30 
Pn:  0.30 

r  =  0.957620  kill  type  =  K 
RANGE  2578.668050 


Figure  3.  Direct-fire  event. 


armor-piercing  discarding  sabot-tracer).  The  target  (VTABID  of  1001)  is  a  T-80  main  battle 
tank  and  the  firer  (VTAB  ID  of  1012)  is  an  Ml  main  battle  tank.  This  additional  information 
can  be  obtained  from  the  vehicle  table.  The  result  of  this  hit  is  a  K  or  catastrophic  kill.  These 
tables  provide  invaluable  infonnation  on  what  is  happening  during  the  simulation  execution. 
However,  not  all  damage  is  a  result  of  a  direct  fire,  so  additional  infonnation  needed  to  be 
obtained  from  OneSAF  to  handle  indirect-fire  events. 


3.  Methods/Procedures 


3,1  Data  Collection  Modifications 

The  original  KVS  data  collection  capability  collected  data  whenever  the  simulation  entered  a 
certain  software  routine.  The  routine  was  located  in  the  statmoninit.c  program  in  the 
libsrc/libstatmon  directory.  This  provided  the  data  as  seen  in  figure  1 .  However,  this 
methodology  had  two  limitations.  The  first  limitation  was  that  the  data  were  only  collected  when 
the  simulation  entered  the  specified  routine,  so  data  were  only  available  at  intermittent  times. 
There  was  no  guarantee  that  data  would  be  collected  on  a  regular  basis.  The  second  limitation 
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was  that  the  user  had  to  turn  on  the  status  function  in  the  OneSAF  graphical  user  interface  (GUI) 
to  ensure  that  data  was  collected.  Changes  were  made  to  overcome  these  two  limitations. 

To  correct  the  first  limitation,  the  code  was  modified  in  two  separate  libraries.  The  first  change 
provided  the  ability  to  set  the  appropriate  time  increment  to  collect  data.  A  user  can  specify  the 
collection  time  frequency  by  entering  a  value,  in  seconds,  in  the  file  INCREMENT  located  in  the 
OneSAF  home  directory.  This  file  is  read  at  simulation  startup.  If  the  file  does  not  exist,  the 
simulation  will  collect  data  every  60  s  (default  value).  This  change  was  made  in  the  enttick.c 
file  located  in  the  <OneSAF-home>/libsrc/libentity  directory.  The  second  library  changed  was 
the  <OneSAF-home>/libsrc/libstatmon.  (Please  see  appendices  A  and  B  for  code  changes.)  We 
added  a  new  software  routine  called  perpetual  collect  data  in  the  stmninit.c  file.  This  routine 
allows  for  the  collection  of  data  at  the  default  or  user-defined  interval.  The  collected  data  are 
placed  in  a  file  named  with  the  unique  timestamp  for  that  simulation  run  with  a  dc  extension  and 
placed  in  a  directory  at  the  OneSAF  home  level  entitled  PERPETUAL.  The  format  for  the  data 
is  the  same  as  shown  in  figure  1 . 

We  overcame  the  second  limitation  by  initiating  changes  in  the  ent  tick.c  file.  We  modified  the 
code  so  the  data  are  collected  without  user  intervention.  The  original  data  collection  process 
required  that  the  user  turn  on  the  Unit  Status  function  in  the  OneSAF  GUI  when  the  simulation 
was  executing.  If  the  user  did  not  select  Unit  Status,  then  no  data  would  be  collected.  These 
modifications  allow  for  constant  data  collection  without  relying  on  the  user  to  initiate  this 
functionality.  One  caveat  must  be  applied:  the  user  must  monitor  disk  space  on  the  system.  The 
data  collection  files  can  grow  quite  large  and  could  impede  simulation  execution  if  disk  space  is 
impacted. 

While  the  changes  allow  for  constant  data  collection,  the  original  functionality  is  intact.  If  a  user 
does  select  Unit  Status  the  system  will  still  create  a  file  with  the  dc  extension  in  the  DATACOLL 
directory.  It  is  possible  that  two  files  will  be  created,  one  in  the  DATACOLL  directory  and  one 
in  the  PERPETUAL  directory.  The  PERPETUAL  file  will  always  be  created  when  the 
simulation  is  running.  The  DATACOLL  file  will  be  created  if  the  user  selects  the  Unit  Status 
function.  The  two  files  will  contain  data  collected  at  different  time  points  in  the  simulation 
execution. 

3.2  Indirect-Fire  Modifications 

The  OneSAF  code  was  modified  to  provide  a  real-time  list  of  all  indirect-fire  events  to  a  text  file 
for  further  processing.  A  new  file  is  created  for  each  simulation  execution  and  is  uniquely 
named  with  a  timestamp  and  an  if  extension  (e.g.,  1 121772206if).  The  files  for  the  collected 
data,  the  direct-fire,  and  vehicle  table  are  also  named  with  the  same  timestamp  so  all  information 
from  one  simulation  run  can  be  correlated.  Using  the  previous  example,  the  data  collection  file 
would  be  1 121772206dc,  the  direct-fire  file  would  be  1 121772206df,  and  the  vehicle  table  would 
be  1 121772206vt.  The  indirect-fire  file  would  be  placed  in  the  directory  <OneSAF- 
home>/IFKVS. 
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To  create  the  file  that  contains  the  indirect- fire  information,  new  code  was  inserted  into  the 
indirect-fire  library  (OneSAF  directory/libsrc/libifdam).  (Please  see  appendix  C  for  code 
changes.)  The  modified  program  is  ifdamtick.c.  The  program  remains  in  a  wait  state  and  is 
always  available  to  assess  indirect- fire  damageas  the  event  occurs.  When  indirect- fire  is 
detected,  all  entities  in  the  local  area  are  assessed  for  damage.  OneSAF  calculates  all  entities 
within  the  range  of  a  detonation  based  on  the  ammunition  and  then  assesses  damage  for  all 
within-range  entities.  The  event  will  print  out  one  entry  for  every  vehicle  that  can  be  impacted 
by  the  event. 

Information  that  is  provided  for  the  indirect-fire  event  includes  a  time  stamp  when  the  event 
occurred,  the  vehicle  that  is  being  assessed,  the  munitions  used,  the  location  of  the  entity  and  the 
detonation,  and  the  outcome.  In  the  example  shown  in  figure  4,  three  vehicles  were  within  the 
range  of  influence  from  an  indirect- fire  event.  All  three  entries  are  from  the  same  event,  as  is 
evidenced  by  the  identical  time  stamp  and  the  same  detonation  location.  The  detonation  was 
from  a  U.S.  M712,  a  155-mrn  Copperhead.  Two  vehicles  sustained  no  damage,  while  one  was 
firepower  killed.  From  looking  at  the  vehicle  table  entry  all  three  vehicles  are  USSR  T-72  main 
battle  tanks. 


Time  Stamp  1121772206 

Vehicle  1015  assessing  IF  damage  with  1  "munition  US  M712" 
Entity  Location  X  =  6737.77  Y  =  41301.00  Z  =  987.29 
U  No  Damage 

Detonation  Location  X  =  6571.00  Y  =  41190.42  Z  =  991.25 


Time  Stamp  1121772206 

Vehicle  1018  assessing  IF  damage  with  1  "munition  US  M712" 
Entity  Location  X  =  6571.37  Y  =  41190.00  Z  =  991.23 
F  Fire  Kill 

Detonation  Location  X  =  6571.00  Y  =  41190.42  Z  =  991.25 


Time  Stamp  1121772206 

Vehicle  1014  assessing  IF  damage  with  1  "munition  US_M712" 
Entity  Location  X  =  6599.09  Y  =  41328.70  Z  =  990.82 
U  No  Damage 

Detonation  Location  X  =  6571.00  Y  =  41190.42  Z  =  991.25 


Figure  4.  Sample  from  the  indirect-fire  file. 


4.  Results  and  Discussion 


The  addition  of  indirect- fire  events  to  the  KVS  increases  the  amount  of  data  that  can  be  captured 
from  simulation  runs.  Additionally,  changes  recently  made  to  the  data  collection  capability 
decrease  the  amount  of  user  interaction  necessary.  This  will  allow  multiple  simulations  to  be  run 
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in  a  batched  mode  with  little  dependence  on  a  user.  This  feature  will  support  our  data  mining 
efforts  as  the  number  of  simulations  executed  can  increase.  The  indirect-fire  capability  will 
provide  more  data  to  explain  changes  in  entity  state  that  are  the  result  of  events  other  than  direct 
fire. 

With  regards  to  our  BTO  thrust,  the  KVS  enhancements  will  increase  the  accuracy  of  the  data 
obtained.  BTO  provides  a  dynamic  view  of  the  battlespace  that  visualizes  a  power  projection  of 
force  control  over  terrain  area.  BTO  constantly  monitors  for  updates  on  entity  status  and 
location  (infonnation  from  the  dc  file)  and  direct-fire  events  (from  the  df  file).  Prior  to  the 
enhancements,  if  an  indirect-fire  event  occurred,  a  vehicle  status  may  have  changed.  However, 
there  would  be  no  fire  event  reporting  why  the  change  occurred.  BTO  will  now  have  the 
information  to  explain  the  change  in  status  if  an  indirect-fire  event  occurs  and  causes  damage  to 
a  battlespace  entity. 

The  OneSAF  modifications  were  tested  on  systems  running  with  the  Red  Hat  Enterprise  3  Linux 
operating  system.  We  used  version  2.0,  service  patch  4  of  OTB,  for  the  KVS  enhancements. 


5.  Conclusions/Recommendations 


KVS  has  been  an  invaluable  addition  to  the  functionality  of  OTB.  The  data  obtained  from  using 
KVS  benefit  projects  here  at  ARL,  e.g.,  BTO  and  data  mining.  KVS  is  available  to  the  OTB 
community.  Mark  Hickie,  U.S.  Air  Force,  used  the  KVS  functionality  to  support  his  research  at 
Draper  Laboratory  (5).  The  enhancements  made  to  the  data  collection  process  and  the  ability  to 
track  indirect-fire  events  will  allow  for  a  more  complete  dataset  to  be  obtained  during  OTB 
execution. 

The  original  KVS  code  is  incorporated  into  OTB  v2.0.  Any  authorized  user  of  OTB  can  access 
the  functionality  for  data  collection  and  the  KVS.  The  enhancements  discussed  in  this  report  will 
be  sent  to  PEO-STRI  at  the  next  data  call. 

With  increased  intelligence  gathering  and  sensors,  the  future  will  bring  more  information  to  the 
battle  commander.  However,  commanders  cannot  be  overloaded  or  critical  information  may  be 
lost.  Techniques  and  methodologies  being  developed  by  BDST,  e.g.,  BTO  and  data  mining,  will 
allow  infonnation  in  the  future  to  be  distilled  for  the  commander.  The  enhancements  made  to 
KVS  allow  more  information  to  be  gathered  from  a  simulation  and  will  then  rely  on  data  mining 
and  other  technologies  to  provide  a  concise  picture  of  the  battlespace  for  the  commander. 
Technologies  being  developed  today  are  to  ensure  battle  decisiveness  in  the  future. 
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Appendix  A.  Changes  in  OneSAF’s  libsrc/libstatmon  Directory 


This  appendix  appears  in  its  original  form,  without  editorial  change. 


9 


Additions  to  libsrc/libstatmon/libstatmon.h: 


Additions  to  libsrc/libstatmon/libstatmon.h: 

/*  const  value  to  name: 

* 

*  Translate  a  constant  to  its  name  (returned  as  a  libreader  symbol) . 

*  namespace  should  be  a  libreader  symbol.  If  this  fails,  it  returns 

*  the  value  of  const  error. 

*/ 

extern  char  *const  value  to  name  ( 

const  char  ‘namespac, 
int32  value) ; 

/*  reader_get_symbol : 

* 

*  Looks  up  a  string  in  the  symbol  table  and  returns  the  equivalent 

*  symbol.  Note  that  this  will  add  the  string  to  the  symbol  table 

*  if  it  isn't  already  there. 

*/ 

extern  char  ‘reader  get_symbol  ( 

const  char  *s) ; 


/*  pm_type_symbol : 

* 

*  Generates  the  libreader  symbol  which  corresponds  to  the  passed 

*  objectType  and  methodology. 

*/ 

extern  char  *pm  type_symbol  ( 

ObjectType  object_type, 

SAFMethodology  methodology) ; 

/*  KVS  monitor  status 

* 

*  ARL  devloped  routine  to  handle  fuel  and  ammo  information 

* 

*/ 

extern  void  KVS  monitor  status  ( 

PO  DB  ENTRY  *  unit  entry, 
char  ‘message) ; 


Additions  to  libsrc/libstatmon/libstmnlocal.h: 

extern  PO  DATABASE  *joegh  po  db; 

/*  perpetual_status 
* 

*  ARL  developed  routine  for  vehicle  sensing 

* 

*/ 

extern  void  perpetual_status  ( 
int32  vehicle  id. 
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char  description []); 


Additional  subroutine  added  to  libsrc/libstatmon/stmn  init.c: 


/* 

*  Subroutine  to  always  print  out  status  information 

*  Information  used  for  simulation  data  collection. 


*/ 

void  perpetual_collect_data 

{ 

int32 

struct  timeval 
static  int32 
static  int32 
int32 

PO_DB_ENTRY 

FILE 

char 


0 

i; 

time_of_day; 
new  arl  time; 
countl  =  0; 
time  in  secs; 
*entry; 

*temp  file; 
message [20480] ; 


to 


a 


f  ile . 


/*  extern  PO  DATABASE  *joegh  po  db;  */ 

/* 

*  Creates  a  file  name  using  a  UNIX  timestamp 

*  with  appended  dc  within  the  DATACOLL 

*  directory. 

*/ 


bzero (message,  20480); 

if  (countl  ==  0) 

{ 

fnamel [ 0 ]  =  '  \ 0  '  ; 
sprintf  (fnamel, 

"%s%d%s",  "../../PERPETUAL/",  basic  retrieve  arl  time  (), 

"dc"); 

} 

/* 

*  Set  this  flag  to  ensure  file  is  created  only  on  the  first  code 

*  execution  per  OneSAF  run. 

*/ 

countl+f; 

gettimeofday  (&time  of  day,  (struct  timezone  *)  NULL) ; 
time  in  secs  =  time  of  day. tv  sec; 

/* 

*  Code  to  open  file  and  insert  current  timestamp  information. 

*/ 

temp  file  =  fopen  (fnamel,  "a"); 
fprintf  (temp  file, 

"Current  Count  %d  at  Time:  %d  \n\n",  countl,  time  in  secs); 


/* 
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the 


*  This  loop  inserts  the  following  information  for  each  entity  in 


*  simulation:  Object  ID,  location  in  x,  y,  and  z,  appearance,  and 

other 

*  logistical  information. 

*/ 

for  (entry  = 

j  oegh_po_db-> 

ob j ect_classes [ PO_OBJECT_CLASS_INDEX  (obj ectClassUnit) ] ;  entry; 
entry  =  entry->next  class) 

{ 

UnitClass  *unit  =  &P0  UNIT  DATA  (entry) ; 

PO_DB_ENTRY  *task_entry7 


if  (  strcmp ( (char* ) unit->marking . text,  "\0")  !=  0  ) 

{ 

task  entry  =  taskfr  get  background  task  (joegh  po  db, 
entry,  SM  UEnemy) ; 


fprintf  (temp  file,  " - \n"); 

fprintf  (temp  file,  "MARKING:  %s\n",  unit->marking . text) ; 
fprintf (temp  file,  "VEHICLE:  %s\n", 

pm_type_symbol  (unit->objectType,  unit->methodology) ) ; 
fprintf (temp  file,  "VTAB:  %d\n",  unit->simulationID . vehicle) ; 
fprintf  (temp  file,  "X  =  %.2f  Y  =  %.2f  Z  =  %.2f  CELL  = 
%d\n",  unit->location [X] ,  unit->location [ Y]  , 
unit->location [ Z ] ,  (int32)  unit->location [CELL3D] ) ; 

KVS  monitor  status (entry,  message)  ; 
fprintf  (temp_file,  "%s\n",  message); 
bzero (message,  20480); 

perpetual  status (  unit->simulationID . vehicle,  message); 
fprintf (temp_file,  "%s\n",  message); 

fprintf  (temp  file,  " - \n"); 

} 

} 

fprintf  (temp  file, 

"==============================================\n" )  ; 

fflush  (temp  file) ; 
fclose  (temp_file) ; 
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Appendix  B.  Changes  in  OneSAF’s  libsrc/libentity  Directory 


This  appendix  appears  in  its  original  form,  without  editorial  change. 
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Changes  to  file  libsrc/libentity/enttick.c  inside  the  ent  tick  function  call 

ent  tick  () 


struct  timeval 
int32 

static  int32 
static  int32 
int32 

static  int32 
FILE 

static  int 


time_of_day; 
new  tick  time  =  0; 
time  tick  interval  =  0; 
tick_count  =  0; 
time  in  secs; 
increment  =  60; 
‘increment  file; 
increment  flag  =  0; 


/*  Only  check  for  increment  file  once. 

*  The  increment  will  default  to  60  seconds  unless 

*  there  is  another  increment  file.  The  increment 

*  file  should  be  in  seconds.  */ 
if  (  increment  flag  ==  0  ) 

{ 

increment  file  =  fopen  (  "../../INCREMENT",  "r"); 
if  (  increment  file  ) 

fscanf  (  increment  file,  "%d",  Sincrement) ; 
increment  flag  =  1; 

} 

gettimeofday  ( &time_of_day,  (struct  timezone  *)  NULL); 
new  tick  time  =  time  of  day. tv  sec; 

if  (  tick_count  ==  0  ) 

{ 

perpetual_collect_data ( ) ; 
tick  count++; 

time  tick  interval  =  new  tick  time  +  increment; 

} 

else  if  (  new  tick  time  >=  time  tick  interval  ) 

{ 

perpetual_collect_data ( ) ; 

time  tick  interval  =  new  tick  time  +  increment; 
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Appendix  C.  Changes  in  OneSAF’s  libsrc/libifdam  Directory 


This  appendix  appears  in  its  original  form,  without  editorial  change. 
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Additions  to  libsrc/libifdam/libifdamlocal.h: 

/*  Flag  to  ensure  a  single  file  name  creation  on  any  simulation  run.  */ 
extern  int32  if  data  f ile_created; 

/*  Placeholder  for  the  ARL  data  file  name  (with  extention)  */ 
extern  char  ifname [ 1024 ] ; 


Additions  to  libsrc/libifdam/ifdam  tick.c: 

/*  JO  14  Dec  2004  */ 

#include  <assert.h> 

#include  <sys/time.h> 

/*  JO  14  Dec  2004  */ 


static  void  modify  ic  probability  () 

FILE  *temp  file; 

char  ifname [ 1024 ]  ; 


temp  file  =  fopen  (  ifname,  "a"); 

fprintf (temp  file,  "Detonation  Location  X  =  %.2f  Y  =  %.2f  Z  = 
%.2f\n",  location[X],  location[Y],  location [ Z ])  ; 
fprintf (temp  file,  "Entity  Location  X  =  %.2f  Y  =  %.2f  Z  = 

%.2f]\n",  vehicle  location[X],  vehicle  location[Y], 
vehicle_location [Z]  )  ; 

fprintf (temp  file,  "p(k)  %f  p(mf)  %f  p(f)  %f  p (m)  %f  p(n) 
%f\n",  calc_prob->k,  calc_prob->mf , 
calc  prob->f,  calc_prob->m,  calc  prob->n) ; 
fflush(temp  file); 
fclose (temp_file) ; 


} 


static  void  ifdam  lookup  probabilities  () 

FILE  *temp  file; 

char  ifname [1024]  ; 


sprintf  (ifname,  "%s%d%s",  /IFKVS/" , 

basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 

fprintf (temp  file,  "Entity  Location  X  =  %.2f  Y  =  %.2f  Z  =  %.2f\n", 
vehicle  location [X]  ,  vehicle  location[Y], 
vehicle_location [Z]  )  ; 

fprintf (temp  file,  "Shooter  ID  %d\n",  shooter  id); 
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f flush (temp  file); 
fclose (temp_file)  ; 


static  void  ifdam  take  damage  () 

{ 

/*  JO  21  Jun  2005  */ 

char  ifname [ 1024 ] ; 

FILE  *temp  file; 

/*  JO  21  Jun  2005  */ 


if  ( ! is_ic) 

{ 

if  (r  <=  therm  prob.n) 

{ 

/* 

*  no  kill  or  damage  from  this  round 
*/ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  /IFKVS/", 

basic  retrieve  arl  time  (),  "if") 

temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "U  No  Damage  \n"); 
f flush (temp  file); 
fclose (temp_file) ; 

/*  JO  1  Jun  2005  */ 

} 

else  if  (udam  handle  kill  (vehicle  id,  TRUE) ) 


} 

else  if  (r  <=  therm  prob.m) 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 

basic  retrieve_arl  time  (),  "if") 

temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "M  Mobility  Kill  \n"); 
f flush (temp  file); 
fclose (temp_file) ; 

/*  JO  1  Jun  2005  */ 


} 

else  if  (r  <=  therm  prob.f) 

{ 

DELETED  CODE 
/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../.. /IFKVS/", 
basic  retrieve  arl  time  (),  "if") 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "F  Fire  Kill  \n"); 
f flush (temp  file); 
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fclose (temp_file)  ; 

/*  JO  1  Jun  2005  */ 

} 

else  if  (r  <=  therm  prob.mf) 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  /IFKVS/", 

basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "K  Catastrophic  Kill  \n"); 
fflush(temp  file); 
fclose (temp_file)  ; 

/*  JO  1  Jun  2005  */ 


} 

else 

{ 

DELETED  CODE 
/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 
basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 

fprintf (temp  file,  "MF  Mobility  &  Fire  Kill  \n") 
fflush(temp  file); 
fclose (temp_file)  ; 

/*  JO  1  Jun  2005  */ 


} 

else 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 
basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "K  Catastrophic  Kill  \n"); 
fflush(temp  file); 
fclose (temp_file) ; 

/*  JO  1  Jun  2005  */ 


} 

else 

{ 


switch  ( ic_vunerable  factor) 

{ 

case  KILL: 

if  (r  <=  therm  prob.n) 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../.. /IFKVS/" 
basic_retrieve  arl  time  (),  "if" 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "U  No  Damage  \n"); 
fflush(temp  file); 
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fclose (temp_file) ; 


} 

else 

{ 


/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  /IFKVS/", 

basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "K  Catastrophic  Kill  \n"); 
fflush(temp  file); 
fclose (temp_file) ; 

/*  JO  1  Jun  2005  */ 

default : 

if  (r  <=  therm  prob.n) 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 
basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "U  No  Damage  \n"); 
fflush(temp  file); 
fclose (temp_file)  ; 

/*  JO  1  Jun  2005  */ 

} 

else  if  (r  <=  therm  prob.m) 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 
basic_retrieve_arl_time  (),  "if"); 

temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "M  Mobility  Kill  \n"); 
fflush(temp  file); 
fclose (temp_file)  ; 

/*  JO  1  Jun  2005  */ 

} 

else  if  (r  <=  therm  prob.f) 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 
basic_retrieve_arl_time  (),  "if"); 

temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "F  Fire  Kill  \n"); 
fflush(temp  file); 
fclose (temp_file) ; 

/*  JO  1  Jun  2005  */ 

} 

else  if  (r  <=  therm  prob.mf) 

{ 

if  (VTAB_TYPES_MATCH  ( vtab_vehicle_type 
(vehicle^id) ,  VTAB^STRUCTURE) ) 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 
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basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "K  Catastrophic  Kill\n"); 
fflush(temp  file); 
fclose (temp_file)  ; 

/*  JO  1  Jun  2005  */ 


} 

else 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  /IFKVS/", 

basic_retrieve_arl_time  (),  "if"); 
temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "MF  Mobility  &  Fire  Kill 
\n" )  ; 

fflush(temp  file); 
fclose (temp_file) ; 

/*  JO  1  Jun  2005  */ 

} 

else 

{ 

/*  JO  1  Jun  2005  */ 

sprintf  (ifname,  "%s%d%s",  "../../IFKVS/", 
basic_retrieve_arl_time  (),  "if"); 

temp  file  =  fopen  (  ifname,  "a"); 
fprintf (temp  file,  "K  Catastrophic  Kill\n"); 
fflush(temp  file); 
fclose (temp_file) ; 

/*  JO  1  Jun  2005  */ 


} 


} 


static  void  ifdam  received  pdu  () 

{ 


/*  JO  13  Dec  2004  */ 
FILE 


*temp  file; 


struct  timeval  tick  time; 


/*  Placeholder  to  contain  file 

*  name  for  the  fopen  UNIX 

*  function  */ 

/*  UNIX  structure  for  results 

*  of  time  function  call.  */ 


int32 

/*  JO  13  Dec  2004  */ 


new  tick  time;  /*  Placeholder  for  the 

*  current  timestamp.  */ 


/ 
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*  Set  up  code  for  filename 
*/ 

if  ( ! if_data_f ile_created) 

{ 

if name [0]  =  ' \0 ' ; 

sprintf  (ifname,  "%s%d%s",  /IFKVS/" , 

basic_retrieve_arl_time  (),  "if"); 
if  data  file  created  =  TRUE; 

} 


/*  JO  13  Dec  2004  */ 

/* 

*  Open  data  file  and  appending  various  entity  information. 

*/ 

temp  file  =  fopen  (ifname,  "a"); 
if  ( ! temp  file) 

{ 

fprintf  (stderr, 

"libdfdam  dfdam  received  detonate,  failed  to  open  file 
%s . \n" ,  ifname) ; 
assert  (temp_file) ; 
return; 

} 

/*  JO  13  Dec  2004  */ 


/*  JO  13  Dec  2004  */ 
fprintf  (temp  file, 

"============================================\n" ) 


gettimeofday  (Stick  time,  (struct  timezone  *)  NULL); 
new  tick  time  =  tick  time. tv  sec; 

fprintf (temp  file,  "Time  Stamp  %d\n",  new  tick  time); 
fprintf  (temp  file,  ("Vehicle  %d  assessing  IF  damage  with 
%d  \"%s\"  \n" ) , 
vehicle  id, 
quantity, 

const  value  to  name  (reader  get^symbol  ("munition"), 
(int32)  projectile)); 

fflush(temp  file); 
fclose (temp_file) ; 

/*  JO  13  Dec  2004  */ 


{ 


/*  JO  11  Jul  05  */ 
temp  file  =  fopen  (ifname,  "a"); 

fprintf (temp  file, "Detonation  Location  X  =  %.2f  Y  =  %.2f 
Z  =  %.2f\n",  location^gcs [X] , 
location_gcs [Y] ,  location^gcs [ Z ] ) ; 
fflush(temp  file); 
fclose (temp_file)  ; 
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} 


/*  JO  11  Jul  05  */ 


} 
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List  of  Symbols,  Abbreviations,  and  Acronyms 


ARL 

U.  S.  Army  Research  Laboratory 

BDST 

Battlespace  Decision  Support  Team 

BTO 

Battlespace  Terrain  Ownership 

GUI 

Graphical  User  Interface 

KVS 

Killer/Victim  Scoreboard 

OneSAF 

One  Semi-Automated  Forces 

OTB 

OneSAF  Testbed  Baseline 

PEO-STRI 

Program  Executive  Office  for  Simulation,  Training,  and  Instrumentation 
Command 
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